home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Telecom
/
6480TERM.ARC
/
TERM 6480+
(
.txt
)
next >
Wrap
Commodore BASIC
|
2019-04-13
|
12KB
|
423 lines
5 REM"[141][147]
10 [143]" (null)HANX TO;
15 REM" [211]COTT [199]ARNIK
20 [143]" MID$OHN (null)IVETT
25 REM" [202]IM [203]URATOMI
30 [143]" (null)OLKS (null)ERM 6480 VERSION RIGHT$RIGHT$+
33 REM"[141]LIST55-:[145][145][145]"(null)
34 POKE775,200:POKE808,239:POKE808,225
35 :
45 IFPEEK(49152)<>169THENGOSUB985
50 IFPEEK(49152)<>169THENLOAD"TERM.C1.X",8,1
55 OPEN5,2,5,CHR$(6)+CHR$(.)
60 POKE56590,65
65 OPEN1,8,15:GET#5,A$:CS=1.02273E6:BS=255:BS$="255":BU$="450 ":V7=1:GOSUB350
70 TX=0 :REM TEXT COLOR
75 BC=11 :REM BORDER COLOR
80 SC=12 :REM SCREEN COLOR
85 M1=56588:REM 6480 COMMAND CHNL
90 TY$="PSP":XM$(0)="[208][213][206][212][197][210]":XM$(1)="[216][205][207][196][197][205]":OH=663
95 DT$(0)="[208]ULSE":DT$(1)="[212]ONE
98 [151]53280,BC:[151]53281,SC:[151]646,TX
100 T$(1)[178]"(null)(null)(null)CHR$":T$(2)[178]"(null)VAL(null)":T$(3)[178]"(null)(null)(null)(null)":[139]ZX[178]0[167]2000
105 [151]53280,BC:[151]53281,SC:[151]646,TX
110 A$[178][199](142):[153]"LOAD";:A$[178]"6480
115 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
120 PRINT"[221] [214]OLKS [212]ERM 6480 - [199]UILL [199]RACE [146][221]";
125 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
126 PRINT"[221][194]LOCK [211]IZE : "BS$" [221] [194]AUD [210]ATE : "BU$" [221]";
127 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
130 PP$[178]" (null)OLKS (null)ERM 6480 - CHR$UILL CHR$RACE
135 PRINTSPC(11)"[208]ROTOCOL:"XM$(XM)
140 PRINT
145 PRINTSPC(9)"[212] - [212]ERMINAL MODE
150 [153][166]9)"CHR$ - CHR$RAPHIC (null)ERMINAL
155 PRINTSPC(9)"[213] - [213]PLOAD A FILE
160 [153][166]9)"STR$ - STR$WNLOAD A FILE
165 PRINTSPC(9)"[193] - [193]UTODIAL [214][205] 6480
170 [153][166]9)"$ - STR$ISK ASCUNCTIONS
173 PRINTSPC(9)"[201] - [201]NFORMATION
175 [153][166]9)"LEN - LENHANGE LENOLORS
180 PRINTSPC(9)"[208] - [212]OGGLE [208]ROTOCOL
185 [153][166]9)"PEEK - (null)OGGLE PEEKAUD (null)ATE
190 PRINTSPC(9)"[211] - [195]HANGE [194]LOCK [211]IZE
195 [153][166]9)"LEFT$ - LEFT$ANG UP
200 PRINTSPC(9)"[197] - [197]XIT
210 [161]A$:[139]A$[178]""[167][141]1170:[137]210
215 [139]A$[178]"C"[167]1085
220 [139]A$[178]"G"[167]485
223 [139]A$[178]"I"[167]2000
225 [139]A$[178]"T"[167]470
230 [139]A$[178]"$"[167]1575
235 [139]A$[178]"A"[167]575
240 [139]A$[178]"S"[167][141]285:[137]105
245 [139]A$[178]"D"[167]1315
250 [139]A$[178]"U"[167]1240
255 [139]A$[178]"P"[167]315
260 [139]A$[178]"B"[167]400
265 [139]A$[178]"H"[167][151]56579,230:[151]56577,32:[151]M1,14:[151]56590,65:[137]210
270 [139]A$[178]"E"[167]280
275 [137]210
280 [153]" ATNRE (null)OU (null)URE ? ";
281 [161]BY$:[139]BY$[178]""[167]281
282 [139]BY$[179][177]"Y"[167]105
283 [153]BY$:[158]64738
285 [153]" (null)EW PEEKLOCK (null)IZE ? ";:[141]520
290 BS[178][197](I$):[139]BS[178]0[167]BS[178]255:BS$[178]"255":[142]
295 [139]BS[179]40[167]BS[178]40:BS$[178]"040":[142]
300 [139]BS[177]255[167]BS[178]255:BS$[178]"255":[142]
305 [139][195](I$)[179]3[167]BS$[178]"0"[170]I$:[142]
310 BS$[178]I$:[142]
315 [139]XM[178]1[167]XM[178]0:[137]110
320 XM[178]1:[137]110
325 T[178]TI
330 [139]TI[179]T[170]DL[167]330
335 [142]
345 C[178][194](53281):[151]53281,[194](646):[151]53281,C:[142]
350 S[178][197](BU$):HS[178]0:[139]S[178]300[167]BU$[178]"450 ":S[178]450:[151]659,0:[137]370
360 [139]S[178]450[175]V7[178]1[167]BU$[178]"1200":S[178]1200:HS[178]1:[151]659,8:[137]370
365 BU$[178]"300 ":S[178]300:[151]659,6
370 RC[178]CS[173]S:[141]390:[151]683,LO:[151]684,HI
375 [139]S[178]450[167]RC[178]CS[173]S[172].982:[141]390
380 [139]S[178]1200[167]RC[178]CS[173]S[172].966:[141]390
385 [151]665,LO:[151]666,HI:RC[178]CS[173]S[173]2[171]100:[141]390:[151]661,LO:[151]662,HI:[142]
390 HI[178][181](RC[173]256):LO[178][181](RC[171]HI[172]256):[142]
395 ZZ[178]1:[151]M1,70:[151]56577,32:[142]
400 [141]350:[137]105
405 :
410 [153]"LOAD";
415 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";
420 C[178][194](53281):[151]53281,[194](646):[151]53281,C:[142]
425 I[178]0:[159]9,8,0,"$0:"[170]F$:[161]#9,A$,A$
430 N$[178][199](0):[161]#9,A$,A$:[139]ST[167][160]9:[142]
435 I[178]I[170]1:[161]#9,A$,B$:X[178][198](A$[170]N$)[170][198](B$[170]N$)[172]256
440 [161]#9,A$:[139]ST[167]460
445 [139]A$[179][177][199](34)[167]440
450 [161]#9,A$:I$[178]I$[170]A$:[139]A$[179][177]""[167]450
455 [139]I[179]2[167]I$[178]"":[137]430
460 [160]9:[139][195](I$)[179]20[167]E[178]1:[142]
465 [142]
470 [153]"LOAD(null)RESS 'LEFT$(null)(null)VAL' FOR MAIN MENU
475 PRINT"[212]ERMINAL [205]ODE":POKE653,0
480 SYS49173:SYS49167:GOTO105
485 POKE53280,BC:POKE53281,0:POKE646,1
490 PRINTCHR$(142):PRINT"[147] GRAPHIC TERMINAL (CTRL - I = UPPER)
491 [153]"'THENLIST_WAITFN' EXITS TO MENU (CTRL - H = LOWER)
492 PRINT"[183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183][183][183][183][183][158][183][183][183][183]
495 [161]#5,GR$:[139]GR$[178]""[167]505
500 [151]212,0:[153]GR$;:[137]505
505 [161]RG$:[139]RG$[178]""[167]495
510 [139]RG$[178]"_"[167][153][199](14):[151]646,TX:[137]105
511 [139]RG$[178]""[167][153][199](14);:[152]5,[199](14);:[137]505
512 [139]RG$[178]" "[167][153][199](142);:[152]5,[199](142);:[137]505
515 [152]5,RG$;:[137]505
520 I$[178]"
525 PRINT"[164][157]";
530 GETA$:IFA$=""THEN530
535 IFA$=CHR$(13)THEN570
540 IFA$=CHR$(20)THEN560
545 IFLEN(A$)>20THEN530
550 IF(ASC(A$)AND127)<32THEN530
555 PRINTA$;:I$=I$+A$:GOTO525
560 IFLEN(I$)=0THEN530
565 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO525
570 PRINT" ":RETURN
575 B1=56577:B2=56579:TR=0
580 CD=16:POKEB2,230
585 A$="6480":NB$="":I$="
590 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
595 [153]"(null) (null)OLKS 6480 ATNUTODIAL WAIT (null)";
600 [153]"-TANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTAN<";
605 [153]"(null)PEEKAUD:"BU$"(null)STR$IAL (null)YPE:"DT$(PT)"(null)PEEKOCK S:"BS$" (null)";
610 [153]"/TANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANEXP
615 PP$=" [214]OLKS 6480 [193]UTODIAL
620 [153]"VALNTER # TO STR$IAL (null)R PEEK-PEEKAUD,":[153]"STR$-STR$IAL (null)YPE, (null)-PEEKLOCK (null)IZE
625 PRINT"> [164][157]";
630 GETA$:IFA$=""THENGOSUB1170:GOTO630
635 IFA$="B"THENGOSUB350:GOTO585
640 IFA$="D"THENGOSUB1230:GOTO585
645 IFA$="S"THENGOSUB285:GOTO585
650 IFA$=CHR$(13)THEN105
655 IFA$<"1"ORA$>"9"THEN630
660 IFA$>"1"ORA$<"9"THEN670
665 GOTO630
670 PRINT"";:GOSUB535:IFI$=""THEN105
675 NB$=I$:TR=TR+1:POKEM1,14
680 PRINT"[147][193]NY KEY ABORTS! [212]RIES =";TR
685 PRINT" [196]IALING: ";:GOSUB760
690 PRINT:PRINTTAB(10)"[196]IALING [195]OMPLETE":I=0:POKE198,0:POKE53265,27:T=TI
695 IFHSTHENPOKEM1,27
700 IFHS=0THENPOKEM1,40
705 IF(PEEK(56577)AND16)=0THENZZ=ZZ+1
715 FORI=1TO100:NEXT
720 IF(PEEK(56577)AND16)=16THENZZ=0
725 IFZZ=6THEN745
730 GETA$:IFA$<>""THEN105
735 IFTI<T+1200THEN705
740 PRINTTAB(11)"[206]O [195]ARRIER":GOTO675
745 PRINTTAB(10)"[195]ARRIER [196]ETECTED":ZZ=0:IFHSANDV7THENPOKEM1,63:GOTO755
750 IFV7THENPOKEM1,47
755 GOSUB1210:GOTO470
760 POKEB1,32:T=TI
770 IFTI<T+120THEN770
775 POKEB1,0:T=TI
780 IFTI<T+50THEN780
785 L=LEN(NB$):FORI=1TOL:A$=MID$(NB$,I,1):PRINTA$;
790 IFA$=","THENDL=100:GOSUB325
795 IFVAL(A$)=0ANDA$<>"0"THENNEXT
800 A=VAL(A$):IFA=0THENA=10
805 IFPT=1THENPOKE53265,11:POKE720,A:SYS49233:POKE56577,0:NEXT:RETURN
810 FORJ=1TOA:POKEB1,32:T=TI
815 IFTI<T+2THEN815
820 POKEB1,0:T=TI
825 IFTI<T+3THEN825
830 NEXT:T=TI
835 IFTI<T+20THEN835
840 IFI=>LTHENRETURN
845 NEXT:RETURN
850 Z=TI:GOSUB960:IFATHEN945
855 GETA$:IFA$<>""THEN105
860 IF(16ANDPEEK(OH))ANDTI-Z<60THEN855
865 E=TI:Z=TI-Z:GOSUB960:IFATHEN945
870 GETA$:IFA$<>""THEN105
875 IF(16ANDPEEK(OH))=0ANDTI-E<130THEN870
880 E=TI-E:R=(E-Z)/(E+Z):IFABS(R)<.2THENX=X+1:IFX>3THENPRINT"[194]USY!":DL=100
885 IFABS(R)<.2THENX=X+1:IFX>3THENPRINT"[194]USY!":DL=100:GOTO830
890 GOTO850
895 IF16ANDPEEK(OH)THENA=TI
900 IFTI>A+45THENPRINT"[196][201][193][204][160][212][207][206][197]":GOSUB980:RETURN
905 IFTI<W+120THEN895
910 W=TI+8:S=0:T=TI+630:CT=-1:TL$="":POKEM1,39
915 IF16ANDPEEK(OH)THENW=TI+8:SYSRC
930 IFTI<WTHEN915
935 SYSRC:IFLEN(QR$)<4THENY9=1
940 IFHSTHENPOKEM1,53:W=45
945 PRINT:IFHS=0THENPRINT"[195][207][206][206][197][195][212] 300":POKECD,1:POKEOI,40:POKEM1,39+S
955 PRINT"[195][207][206][206][197][195][212] 1200":POKEM1,55+S:POKECD,1:POKEOI,45:SYSRC
960 A=TI+15:POKEM1,40+HS:W=3
965 IF16ANDPEEK(OH)THENPOKEM1,8+HS:A=0
970 IFTI<ATHEN965
975 RETURN
980 DL=30:POKEB1,PEEK(B1)AND223:POKEM1,48:RETURN
985 POKE53280,11:POKE53281,12:PRINT"":PRINTCHR$(142):PRINT"[147]
990 [153]" (null)(null)(null)(null) (null)(null)(null)(null) ";
995 [153]" (null) (null) (null) (null) (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null) ";
1000 [153]" (null) (null) (null) (null) (null)ANDANDANDAND ANDANDANDSQR ";
1005 [153]" (null) (null) (null) (null) INT ABS ";
1010 [153]" (null) (null)(null) (null) INT ABS ";
1015 [153]" (null) (null) INT ABS ";
1020 [153]" (null) (null) INT ABS ";
1025 [153]" (null) (null) INT ABS ";
1030 [153]" (null)(null) STOPOLKS INT ABS STOPERM ";
1035 [153]" USRUSRUSRUSR STOP
1040 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]
1045 [153]"ONA TERMINAL PRG FOR THE VOLKS 6480 MODEM
1050 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]
1055 [153]"MODS BY: GUILL GRACE - 72030,13
1060 PRINT"THANX : SCOTT GARNIK
1065 [153]" JOHN RIVETT
1070 PRINT" JIM KURATOMI
1075 [153]" 1986 GUILL GRACE
1080 RETURN
1085 BC=PEEK(53280):SC=PEEK(53281):TX=PEEK(646)
1090 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1091 PRINT"[221] [214]OLKS [212]ERM 6480 - [199]UILL [199]RACE [146][221]";
1092 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
1094 PP$=" [214]OLKS [212]ERM 6480 - [199]UILL [199]RACE "
1100 PRINT" <[198]1> - [195]HANGE BORDER COLOR
1105 [153]" <ASC3> - LENHANGE SCREEN COLOR
1110 PRINT" <[198]5> - [195]HANGE TEXT COLOR
1115 [153]" <ASC7> - ATNPEEK(null)(null)(null)
1120 A$="":GETA$:IFA$=""THENGOSUB1170:GOTO1120
1125 IFA$="[136]"THEN105
1130 IFA$="[133]"THENBC=BC+1:IFBC>15THENBC=0
1135 IFA$="[134]"THENSC=SC+1:IFSC>15THENSC=0
1140 IFA$="[135]"THENTX=TX+1:IFTX>15THENTX=0
1145 IFA$="[135]"THENPRINT"":POKE646,TX:GOTO1090
1150 POKE53280,BC:POKE53281,SC:GOTO1120
1155 PRINT" [208]RESS ANYKEY TO CONTINUE
1160 [161]A$:[139]A$[178]""[167]1160
1165 [142]
1170 :
1175 [153]"";
1180 [153]""PP$"WAIT(null)
1185 PRINT"";
1190 PRINTPP$"[221]
1195 [142]
1210 T[178]TI
1215 B[178]54272:[151]B[170]1,250:[151]B[170]5,10:[151]B[170]15,200:[139]TI[177]T[170]175[167]1225
1220 [151]B[170]24,15:[151]B[170]4,21:[129]TM[178]1[164]1250:[130]:[151]B[170]4,20:[137]1215
1225 [129]CL[178].[164]24:[151]B[170]CL,.:[130]:[137]470
1230 [139]PT[178]1[167]PT[178]0:[142]
1235 PT[178]1:[142]
1240 [153]"LOAD
1245 IFXMTHENSYS53098
1250 PRINT"[208]ROGRAM [206]AME? ";:GOSUB520:IFI$=""ORFL=1THEN105
1255 PRINT"[198]ILE [212]YPE ([208], [211], OR [215])? [146][157]";
1260 GETA$:IFA$=""THEN1260
1265 IFA$="[133]"THEN105
1270 IFA$="P"THENSA=0:T=1:GOTO1290
1275 IFA$="S"THENSA=2:T=2:GOTO1290
1280 IFA$="W"THENSA=0:T=3:GOTO1290
1285 GOTO1260
1290 PRINTT$(T)"":OPEN2,8,SA,I$:INPUT#1,E$,EM$,T$,S$
1295 IFVAL(E$)>0THENPRINT""E$","EM$","T$","S$:CLOSE2:GOTO1250
1300 IFXMTHEN1360
1305 SYS49173:POKE51227,T:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO470
1310 SYS49173:POKE51224,BS:SYS49158:CLOSE2:GOTO470
1315 PRINT"[147]
1320 [139]XM[167]1475
1325 [153]"(null)AVE ATNS? ";:[141]520:[139]I$[178]""[176]FL[178]1[167]105
1330 [158]49173:[158]49161:[139][194](512)[178]1[167]470
1335 T$[178]","[170][202](TY$,[194](51227),1)[170]",W
1340 IFLEFT$(I$,2)<>"1:"ANDLEFT$(I$,3)<>"@0:"ANDLEFT$(I$,3)<>"@1:"THENI$="0:"+I$
1345 PRINT"[198]ILE [212]YPE: "T$(PEEK(51227))
1350 OPEN2,8,2,I$+T$:FORX=1TO1300:NEXT:PRINT:SYS61310
1355 SYS49173:SYS49155:CLOSE2:FORX=1TO1500:NEXT:POKE668,PEEK(667):GOTO470
1360 MG=52230:UC=0
1365 GET#5,A$:A=ASC(A$+CHR$(0))
1370 IFA=21THEN1385
1375 UC=UC+1:IFUC<500THEN1365
1380 PRINTTB$"[206]O [206][193][203] - [213]PLOAD [193][194][207][210][212][197][196]":CLOSE2:GOTO470
1385 SYS52238
1390 EO=4:UC=0:AC=6:IFPEEK(MG)=0THEN1410
1395 IFPEEK(MG)=3THENPRINT:PRINTTB$"[213]PLOAD [195]ANCELLED.
1400 [139][194](MG)[178]4[167][153]:[153]TB$"(null)ORE THAN 10 TRIES
1405 CLOSE2:PRINT#5,ER$:GOTO470
1410 FORA=1TO132:NEXT:PRINT#5,CHR$(EO);
1415 FORA=1TO2000:GET#5,A$:IFA$=""THENNEXT:UC=UC+1:IFUC>11THEN1410
1420 IFASC(A$+CHR$(0))=ACTHENPRINT:PRINTTB$"[197][207][212] ACKNOWLEDGED":CLOSE2:GOTO470
1425 PRINT:PRINT"[197][207][212] NOT ACKNOWLEDGED":CLOSE2:GOTO470
1430 GET#5,A$:IFA$=""THEN1430
1435 RETURN
1440 GOSUB1430:IFA$<>"0"THEN1440
1445 RETURN
1450 GET#5,A$:IFA$<>""THEN1450
1455 RETURN
1460 T=TI
1465 IFTI<T+65THEN1465
1470 RETURN
1475 PRINT"[211]AVE AS ?";:GOSUB520:IFI$=""ORFL=1THEN105
1480 PRINT"[198]ILE [212]YPE ([208]RG OR [211]EQ) ? [146][157]";
1485 GETA$:IFA$=""THEN1485
1490 IFA$="[133]"THEN105
1495 IFA$="P"THENSA=0:T=1:GOTO1510
1500 IFA$="S"THENSA=2:T=2:GOTO1510
1505 GOTO1485
1510 SYS53098:MG=52230
1515 PRINTT$(T)"":OPEN2,8,2,"A0:"+I$+","+A$+",W":INPUT#1,E$,EM$,T$,S$
1520 POKEMG,2:SYS52227
1525 ER=PEEK(MG)
1530 IFER=2THENPRINT:PRINT"ABORTED
1535 [139]ER[178]0[167][153]:[153]"SUCCESSFUL
1540 IFER=1THENPRINT:PRINT"SYNC LOST
1545 [139]ER[178]3[167][153]:[153]"CANCELLED
1550 IFER=4THENPRINT:PRINT"SORRY, MORE THAN 10 TRIES
1555 [153]TB$:[160]2
1565 [137]470
1575 [160]1:[160]15:[159]15,8,15
1585 [153]"LOAD":[137]1755
1590 [159]1,8,0,"$0":[153]"LOAD
1595 PRINT"[147] [211]PACE TO PAUSE, [209] TO QUIT
1600 [141]1880:[137]1610
1605 [161]#1,A$,B$
1610 [161]#1,A$,B$
1615 [161]#1,A$,B$
1620 C[178]0
1625 [139]A$[179][177]""[167]C[178][198](A$)
1630 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
1635 [153]" "[202]([196](C),2);[163]8);"WAIT ";
1640 [161]#1,B$:[139]ST[179][177]0[167]1685
1645 [139]B$[179][177][199](34)[167]1640
1650 [161]#1,B$:[139]B$[179][177][199](34)[167][153]B$;:[137]1650
1655 [161]#1,B$:[139]B$[178][199](32)[167]1655
1660 [153][163]24);:C$[178]"
1665 C$=C$+B$:GET#1,B$:IFB$<>""THEN1665
1670 PRINT" "LEFT$(C$,3)
1675 GETT$:IFT$<>""THENGOSUB1695
1680 IFST=0THEN1610
1685 PRINT" BLOCKS FREE
1690 [160]1:[141]1155:[137]1755
1695 [139]T$[178]"Q"[167][160]1:[160]15:[141]1155:[137]1755
1700 [139]T$[178]" "[167][141]1870
1705 [161]T$:[139]T$[178]""[167]1695
1710 [142]
1715 C$[178]"":[153]"";:[153]"> TOCMD";
1725 [141]520:[139]I$[178]""[167]1740
1730 C$[178]I$
1735 [152]15,C$
1740 [153]"";:[137]1746
1745 [153]"";
1746 [132]15,A,A$,A1,A2:[153]:[153]A;"CMD, "A$;",";A1;",";A2
1750 [141]1155
1755 [153]"WAIT
1756 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1757 PRINT"[221] [196]ISK [198]UNCTIONS - [214]OLKS TERM 6480 [146][221]";
1758 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
1759 PP$[178]" STR$ISK ASCUNCTIONS - (null)OLKS TERM 6480
1760 PRINTSPC(12)"[196] - [196]IRECTORY
1765 [153][166]12)"> - STR$ISK LENOMMAND
1770 PRINTSPC(12)"[198] - [198]REE [194]LOCKS
1775 [153][166]12)"(null) - LENHECK VALRROR
1780 PRINTSPC(6)"<[195][210]> - [210]ETURN TO [205]AIN [205]ENU
1785 [161]A$:[139]A$[178]""[167][141]1170:[137]1785
1790 [139]A$[178]"D"[167]1590
1795 [139]A$[178]"F"[167]1820
1800 [139]A$[178]">"[167]1715
1805 [139]A$[178][199](13)[167][160]1:[160]15:[159]1,8,15:[137]105
1810 [139]A$[178]"S"[167]1745
1815 [137]1785
1820 D[178]8:D$[178]"0
1825 PRINT#15,"I"+D$:OPEN1,8,0,"$"+D$+":!#$%&
1830 [129]D[178]1[164]34:[161]#1,X$:[130]
1835 [161]#1,X$:X[178][195](X$):[139]X[167]X[178][198](X$)
1840 [161]#1,X$:Y[178][195](X$):[139]Y[167]Y[178][198](X$)
1845 L[178]X[170]Y[172]256:[153]"";:[153]"";L;"BLOCKS FREE
1850 GOSUB1155:CLOSE1:CLOSE15:OPEN15,8,15:GOTO1585
1855 INPUT#15,E,E$,E1,E2
1860 IFE=0THENE=(STAND191):E$="*ST*
1865 [142]
1870 [161]T$:[139]T$[178]""[167]1870
1875 [142]
1880 [161]#1,A$,B$
1885 [161]#1,A$,B$
1890 [161]#1,A$,B$
1895 C[178]0:F[178]0
1900 [139]A$[179][177]""[167]C[178][198](A$)
1905 [139]B$[179][177]""[167]C[178]C[170][198](B$)[172]256
1910 [153]" "[202]([196](C),2);[163]8);"WAIT ";
1915 [161]#1,B$:[139]ST[179][177]0[167][142]
1920 [139]B$[179][177][199](34)[167]1915
1925 [161]#1,B$:[139]B$[179][177][199](34)[167][153]B$;:[137]1925
1930 [161]#1,B$:[139]B$[178][199](32)[167]1930
1935 [153][163]24);:C$[178]"
1940 C$=C$+B$:GET#1,B$:IFB$<>""THEN1940
1945 PRINT" "LEFT$(C$,3)
1950 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":RETURN
2000 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
2005 PRINT"[221][152] [214]OLKS[152] [212]ERM[152] [144]6480[152] [155]-[152] [199]UILL[152] [199]RACE[152] [144][221]";
2010 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
2015 PP$="[152] [214]OLKS[152] [212]ERM[152] [144]6480[152] [155]-[152] [199]UILL[152] [199]RACE[152] [144]
2020 [153]
2025 [153]" LEFT$ELLO AND WELCOME TO VERSION RIGHT$RIGHT$ OF
2030 PRINT" [214]OLKS [212]ERM 6480. [201] HOPE THAT THIS PRG
2035 [153]" IS USEFUL TO YOU AND THAT IT CLEARS
2040 PRINT" UP THE NASTY RUMMORS ABOUT [214]OLKS AND
2050 [153]" THEIR PRODUCTS. RIGHT$ SAY THIS BECAUSE
2055 PRINT" [201] BELIEVE THE THE [214]OLKS6480 IS A VERY
2060 [153]" UNDERRATED MODEM.
2065 PRINT
2080 PRINT" [193]S [201] WORK IN A WAREHOUSE AND DON'T
2095 [153]" REALLY WORK ON COMPUTERS THAT MUCH,
2100 PRINT" [201]'M ASKING YOU, THE USER, TO LET ME
2105 [153]" KNOW WHAT YOU THINK OF MY PROGRAMING.
2110 PRINT" [215]RITE TO ME AT;
2115 [153]" (null)R. (null). CHR$. CHR$RACE
2120 PRINT" 284 [205]ILLWOOD [210]D.
2125 [153]" (null)ORONTO, (null)NT.
2130 PRINT" [195]ANADA
2135 [153]" (null)4(null)-1MID$8
2138 PRINT"[155] [208]RESS ANYKEY!";
2140 GETA$:IFA$=""THENGOSUB1170:GOTO2140
2145 ZX=1:GOTO105